From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 28 Feb 2025 14:32:35 +0000 (+0100)
Subject: * lisp/proced.el (proced-<): Check, that NUM1 and NUM2 are numbers.
X-Git-Tag: archive/raspbian/1%30.2+1-2+rpi1^2~2^2~24^2~254
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/success/%22http:/www.example.com/cgi/success?a=commitdiff_plain;h=5247da2e3cd2705278bb68e0c5313a6972a6d43c;p=emacs.git

* lisp/proced.el (proced-<): Check, that NUM1 and NUM2 are numbers.

(Bug#76549)
---

diff --git a/lisp/proced.el b/lisp/proced.el
index 51fc39328b7..a60f70c949e 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -1423,10 +1423,12 @@ a certain refinement, consider defining a new filter in `proced-filter-alist'."
 
 (defun proced-< (num1 num2)
   "Return t if NUM1 less than NUM2.
-Return `equal' if NUM1 equals NUM2.  Return nil if NUM1 greater than NUM2."
-  (if (= num1 num2)
-      'equal
-    (< num1 num2)))
+Return `equal' if NUM1 equals NUM2.  Return nil if NUM1 greater than NUM2.
+If either NUM1 or NUM2 is not a number, return nil."
+  (when (and (numberp num1) (numberp num2))
+    (if (= num1 num2)
+        'equal
+      (< num1 num2))))
 
 (defun proced-string-lessp (s1 s2)
   "Return t if string S1 is less than S2 in lexicographic order.